<?php

include("config.php");
if (!isset($_SESSION["user"]) || $_SESSION["user"] == "") header('Location: index.php');

$db_www = new DB($server_username,$server_pass,$server_db,$server,$driver);
if ($db_www->isConnected()) {	
	$i_query = str_replace("<kodas>", $_SESSION['user'], $i_query);		
	$minfo = $db_www->returnInfo($i_query);	
} else {
	die("Klientų aptarnavimo sistema laikinai neveikia.");
}

	$oinfo = $db_www->returnInfo($o_query);	
	if (!empty($oinfo)) {
		$o_query = str_replace("<kodas>", $oinfo["N23_REIKSME1"], $ii_query);
		$ourinfo = $db_www->returnInfo($o_query);		
	}

$data = convertdate($_REQUEST["data"],'iso','iso','.');
if ($data == NULL) $data = lastOfPrevMonth();
	
$company = iconv('windows-1257', 'UTF-8',$ourinfo["N08_PAV"]);
$address = iconv('windows-1257', 'UTF-8',$ourinfo["N08_ADR"]);
		
$mcompany = iconv('windows-1257', 'UTF-8',$minfo["N08_PAV"]);
$maddress = iconv('windows-1257', 'UTF-8',$minfo["N08_ADR"]);

$aktas_query = str_replace("<kodas>", $minfo["N08_kodas_ks"], $aktas_query);
$aktas_query = str_replace("<data>", $data, $aktas_query);
$skolainfo = $db_www->returnInfo($aktas_query);

$deb = "";
$kred = "";
if (!empty($skolainfo)) {
	$dskola=$skolainfo["skola"];
} else {
	$dskola=0;
}
if ($dskola > 0) {
	$deb = $dskola;
} else if ($dskola < 0) {
	$kred = abs($dskola);
}



if (!isset($LTL) || $LTL=="0") {
$zodziais = toLit(abs($dskola),"EUR");
} else {
$zodziais = toLit(abs($dskola),"LTL");
}





$tekstas = "";
$myFile = "parasai/sud_aktas.txt";
if (file_exists($myFile) && filesize($myFile) > 0){
	$fh = fopen($myFile, 'r');
	$tekstas = fread($fh, filesize($myFile));
	$tekstas = str_replace(b"\xEF\xBB\xBF","",$tekstas);
	fclose($fh);
}


$header = "";
$html = "<table cellspacing=\"0\" cellpadding=\"1\" border=\"0\">
<tr>
<td><table><tr><td>
" .
$company . " Įm. kodas ". $ourinfo["N08_IM_KODAS"] ."</td></tr><tr><td>".
$address."</td></tr><tr><td style=\"border-top:1px solid #000000;\"><span style=\"text-align:center;\"><font size=\"-1\">".
"(siuntėjo įmonės pavadinimas)"."</font></span></td></tr><tr><td><br><br>".
$mcompany." Įm. kodas ". $minfo["N08_IM_KODAS"]."</td></tr><tr><td>".
$maddress."</td></tr><tr><td style=\"border-top:1px solid #000000;\"><span style=\"text-align:center;\"><font size=\"-1\">".
"(gavėjo įmonės pavadinimas)"."</font>
<br><br><br>
</span></td></tr></table>".
"
</td>
<td><span style=\"text-align:center;\"><font size=\"+2\"><b>AKTAS</b></font><br>".$data."</span></td>
</tr>
</table>
<span style=\"text-align:center;\"><font size=\"+2\"><b>Dėl skolų suderinimo</b></font>
</span>
<br><br>
Prašome patvirtinti, kad sutinkate su žemiau nurodytų įsiskolinimų apskaitos informacija ".$data." datai tarp Jūsų ir mūsų įmonių
<br><br>
<table>
<tr style=\"background-color:#EFF9E5;\"><td colspan=\"2\">".$company."</td><td colspan=\"2\">".$mcompany."</td></tr>
<tr style=\"background-color:#EFF9E5;\"><td><b>Debetas</b></td><td><b>Kreditas</b></td><td><b>Debetas</b></td><td><b>Kreditas</b></td></tr>
<tr><td><b>".$deb."</b></td><td><b>".$kred."</b></td><td><b></b></td><td><b></b></td></tr>
<tr><td colspan=\"4\"></td></tr>
<tr><td colspan=\"4\"></td></tr>
<tr><td colspan=\"4\">Galutinis saldo sudaro: ".trim($zodziais)."</td></tr>
<tr><td colspan=\"4\"></td></tr>
<tr><td colspan=\"4\"></td></tr>
<tr><td colspan=\"4\"></td></tr>
<tr><td colspan=\"4\"></td></tr>
<tr><td>Vadovas:</td><td></td><td>Vadovas:</td><td></td></tr>
<tr><td colspan=\"4\"></td></tr>
<tr><td></td><td>(vardas, pavardė parašas)</td><td></td><td>(vardas, pavardė parašas)</td></tr>
<tr><td colspan=\"4\"></td></tr>
<tr><td colspan=\"4\"></td></tr>
<tr><td>Vyr. finansininkas:</td><td></td><td>Vyr. finansininkas:</td><td></td></tr>
<tr><td colspan=\"4\"></td></tr>
<tr><td></td><td>(vardas, pavardė parašas)</td><td></td><td>(vardas, pavardė parašas)</td></tr>
<tr><td colspan=\"4\"></td></tr>
<tr><td colspan=\"4\"></td></tr>
<tr><td><span style=\"text-align:center;\">A.V.</span></td><td></td><td><span style=\"text-align:center;\">A.V.</span></td><td></td></tr>
<tr><td colspan=\"4\"></td></tr>
<tr><td colspan=\"4\"></td></tr>
<tr><td colspan=\"4\"><font size=\"-2\">".$tekstas."</font></td></tr>
</table>
"; 



	require_once('tcpdf/config/lang/eng.php');
	require_once('tcpdf/tcpdf.php');

	// Extend the TCPDF class to create custom Header and Footer
	class MYPDF extends TCPDF {

		private $hd = "header";
		
		public function setHeaderString($value){
			$this->hd = $value;
		}
		
		//Page header
		public function Header() {        
			$this->writeHTML($this->hd, true, false, true, false, '');
		}
	}
	
		// create new PDF document
		$pdf = new MYPDF(PDF_PAGE_ORIENTATION, PDF_UNIT, PDF_PAGE_FORMAT, true, 'UTF-8', false);

		// set document information
		$pdf->SetCreator(PDF_CREATOR);
		$pdf->SetAuthor('Darius Mikėnas');
		$pdf->SetTitle('Suderinimo aktas');
		$pdf->SetSubject('Suderinimo aktas');
		$pdf->SetKeywords('Suderinimo aktas');

		// set default header data
		$pdf->SetHeaderData(PDF_HEADER_LOGO, PDF_HEADER_LOGO_WIDTH, PDF_HEADER_TITLE, PDF_HEADER_STRING);
		$pdf->setHeaderString($header);
		$pdf->setPrintHeader(false);
		$pdf->setPrintFooter(false);

		// set default monospaced font
		$pdf->SetDefaultMonospacedFont('freesans');

		//set margins
		$pdf->SetMargins(PDF_MARGIN_LEFT, 10, PDF_MARGIN_RIGHT);
		$pdf->SetHeaderMargin(PDF_MARGIN_HEADER);
		$pdf->SetFooterMargin(PDF_MARGIN_FOOTER);

		//set auto page breaks
		$pdf->SetAutoPageBreak(TRUE, PDF_MARGIN_BOTTOM);

		//set image scale factor
		$pdf->setImageScale(PDF_IMAGE_SCALE_RATIO);

		//set some language-dependent strings
		$pdf->setLanguageArray($l);

		// ---------------------------------------------------------

		// set font
		//$pdf->AddFont('freesans', 'B', 8);
		$pdf->SetFont('freesans', '', 8);
		$pdf->setHeaderFont(Array('freesans', '', 8));

		$pdf->setJPEGQuality(75);
		
		// add a page
		$pdf->AddPage();



		$pdf->writeHTML($html, true, false, true, false, '');
		//Close and output PDF document
		$pdf->Output('suderinimo_aktas.pdf', 'D');

?>